
;; labels
(setf *label_lbs* (make-instance 'label :master *frame_listmain*
                                      :text "Lbs"))
(grid *label_lbs* 0 0)

(setf *label_oz* (make-instance 'label :master *frame_listmain*
                                      :text "oz"))
(grid *label_oz* 0 1)

(setf *label_gms* (make-instance 'label :master *frame_listmain*
                                      :text "grams"))
(grid *label_gms* 0 2)

(setf *label_mater* (make-instance 'label :master *frame_listmain*
                                      :text "Materials"))
(grid *label_mater* 0 3)

(setf *label_int* (make-instance 'label :master *frame_listmain*
                                      :text "Int"))
(grid *label_int* 0 4)

;; first column - lbs.
(defvar *entry1* 0)
(setf *entry1* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
(grid *entry1* 1 0)
;;
(defvar *entry2* 0)
(setf *entry2* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
(grid *entry2* 2 0)
;;
(defvar *entry3* 0)
(setf *entry3* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
(grid *entry3* 3 0)
;;
(defvar *entry4* 0)
(setf *entry4* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
(grid *entry4* 4 0)
;;
(defvar *entry5* 0)
(setf *entry5* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
(grid *entry5* 5 0)
;;
(defvar *entry6* 0)
(setf *entry6* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry6* 6 0)
;;




;;;; enter 2nd column
(defvar *entry1b* 0)
(setf *entry1b* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry1b* 1 1)
;;
(defvar *entry2b* 0)
(setf *entry2b* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry2b* 2 1)
;;
(defvar *entry3b* 0)
(setf *entry3b* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry3b* 3 1)
;;
(defvar *entry4b* 0)
(setf *entry4b* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry4b* 4 1)
;;
(defvar *entry5b* 0)
(setf *entry5b* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry5b* 5 1)
;;
(defvar *entry6b* 0)
(setf *entry6b* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry6b* 6 1)
;;

;;;; enter 3rd column
(defvar *entry1c* 0)
(setf *entry1c* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry1c* 1 2)
;;
(defvar *entry2c* 0)
(setf *entry2c* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry2c* 2 2)
;;
(defvar *entry3c* 0)
(setf *entry3c* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry3c* 3 2)
;;
(defvar *entry4c* 0)
(setf *entry4c* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry4c* 4 2)
;;
(defvar *entry5c* 0)
(setf *entry5c* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry5c* 5 2)
;;
(defvar *entry6c* 0)
(setf *entry6c* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
(grid *entry6c* 6 2)
;;


;;;; enter 4th column - materials
(defvar *entry1d* 0)
(setf *entry1d* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
(grid *entry1d* 1 3)
;;
(defvar *entry2d* 0)
(setf *entry2d* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
(grid *entry2d* 2 3)
;;
(defvar *entry3d* 0)
(setf *entry3d* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
(grid *entry3d* 3 3)
;;
(defvar *entry4d* 0)
(setf *entry4d* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
(grid *entry4d* 4 3)
;;
(defvar *entry5d* 0)
(setf *entry5d* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
(grid *entry5d* 5 3)
;;
(defvar *entry6d* 0)
(setf *entry6d* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
(grid *entry6d* 6 3)
;;

;;;; enter 5th column
(defvar *entry1e* 0)
(setf *entry1e* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
(grid *entry1e* 1 4)
;;
(defvar *entry2d* 0)
(setf *entry2e* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
(grid *entry2e* 2 4)
;;
(defvar *entry3d* 0)
(setf *entry3e* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
(grid *entry3e* 3 4)
;;
(defvar *entry4e* 0)
(setf *entry4e* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
(grid *entry4e* 4 4)
;;
(defvar *entry5e* 0)
(setf *entry5e* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
(grid *entry5e* 5 4)
;;
(defvar *entry6e* 0)
(setf *entry6e* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
(grid *entry6e* 6 4)
;;
